home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / emacs.lha / emacs-19.16 / vms / mailemacs.com < prev    next >
Text File  |  1992-10-31  |  726b  |  25 lines
  1. $! Roland Blaine Roberts (roberts@nsrl31.nsrl.rochester.edu)
  2. $! Nuclear Structure Research Laboratory
  3. $! University of Rochester
  4. $! Friday, 17 April 1992 
  5. $!
  6. $! Command procedure to invoke Emacs for VMS MAIL editor.  The logical
  7. $! name MAIL$EDIT should translate to this file.
  8. $!
  9. $! Arguments:
  10. $!   p1 = Input file name.
  11. $!   p2 = Output file name.
  12. $!
  13. $! Logical Names:
  14. $!   MAIL$TRAILER file to be appended to the message
  15. $!
  16. $ args = "-f vms-pmail-setup"
  17. $ if (p1 .nes. "") .and. (f$search(p1) .nes. "") then -
  18.      args = "-i ''f$search(p1)' ''args' -f indicate-mail-reply-text"
  19. $ trailer = f$trnlnm("MAIL$TRAILER")
  20. $ if trailer .nes. "" then -
  21.      args = args + " -f insert-signature"
  22. $ emacs "-q" 'p2' "''args'"
  23. $ exit
  24.  
  25.